|
700
|
Is it possible to colour a particular column for specified values
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Variant voConditionalFormat
Get ComAdd of hoConditionalFormats "int(%1) in (3,4,5)" Nothing to voConditionalFormat
Handle hoConditionalFormat
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
Set pvComObject of hoConditionalFormat to voConditionalFormat
Set ComBackColor of hoConditionalFormat to (RGB(255,0,0))
Set ComApplyTo of hoConditionalFormat to |CI$1
Send Destroy to hoConditionalFormat
Send Destroy to hoConditionalFormats
Set ComMarkSearchColumn to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Get ComAdd of hoColumns "Column 2" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellCaption of hoItems (ComAddItem(hoItems,0)) 1 to 1
Set ComCellCaption of hoItems (ComAddItem(hoItems,2)) 1 to 3
Set ComCellCaption of hoItems (ComAddItem(hoItems,4)) 1 to 5
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
699
|
Is it possible to colour a particular column
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComMarkSearchColumn to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Variant voColumn
Get ComAdd of hoColumns "Column 2" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellBackColor to 255
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellCaption of hoItems (ComAddItem(hoItems,0)) 1 to 1
Set ComCellCaption of hoItems (ComAddItem(hoItems,2)) 1 to 3
Set ComCellCaption of hoItems (ComAddItem(hoItems,4)) 1 to 5
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
698
|
How do i get all the children items that are under a certain parent Item handle
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComLinesAtRoot to OLEexLinesAtRoot
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "P" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant hChild
Get ComItemChild of hoItems1 (ComFirstVisibleItem(hoItems1)) to hChild
Showln (ComCellCaption(hoItems1,hChild,0))
Showln (ComCellCaption(hoItems1,(ComNextSiblingItem(hoItems1,hChild)),0))
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
697
|
How can I change the predefined labels being displayed in the chart's header so it shows the data in short format with no literals
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 0
Set ComLevelCount of hoChart to 3
Set ComOverviewVisible of hoChart to True
Set ComAllowOverviewZoom of hoChart to OLEexAlwaysZoom
Set ComLabel of hoChart OLEexYear to "<%yy%><|><%yyyy%>"
Set ComLabel of hoChart OLEexHalfYear to ""
Set ComLabel of hoChart OLEexQuarterYear to ""
Set ComLabel of hoChart OLEexMonth to "<|><%m%><|><%m%>/<%yy%><|><%m%>/<%yyyy%>"
Set ComLabel of hoChart OLEexThirdMonth to ""
Set ComLabel of hoChart OLEexWeek to "<|><%ww%><|><%m%>/<%d%>/<%yy%><r><%ww%><|><%m%>/<%d%>/<%yyyy%><r><%ww%><||><||>256"
Set ComLabel of hoChart OLEexDay to "<|><%d%><|><%m%>/<%d%>/<%yy%><|><%m%>/<%d%>/<%yyyy%><||><||>4096"
Set ComLabel of hoChart OLEexHour to "<|><%hh%><|><%m%>/<%d%>/<%yy%> <%h%> <%AM/PM%><|><%m%>/<%d%>/<%yyyy%> <%h%> <%AM/PM%><||><||>65536"
Set ComLabel of hoChart OLEexMinute to "<|><%nn%><|><%h%>:<%nn% <%AM/PM%>><|><%m%>/<%d%>/<%yy%> <%h%>:<%nn%> <%AM/PM%><|><%m%>/<%d%>/<%yyyy%> <%h%>:<%nn%> <%AM/PM%>"
Set ComLabel of hoChart OLEexSecond to "<|><%ss%><|><%nn%>:<%ss%><|><%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%m%>/<%d%>/<%yy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%m%>/<%d%>/<%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>"
Set ComLabelToolTip of hoChart OLEexYear to "<%yyyy%>"
Set ComLabelToolTip of hoChart OLEexHalfYear to ""
Set ComLabelToolTip of hoChart OLEexQuarterYear to ""
Set ComLabelToolTip of hoChart OLEexMonth to "<%m%>/<%yyyy%>"
Set ComLabelToolTip of hoChart OLEexThirdMonth to ""
Set ComLabelToolTip of hoChart OLEexWeek to "<%m%>/<%d%>/<%yyyy%> <%ww%>"
Set ComLabelToolTip of hoChart OLEexDay to "<%m%>/<%d%>/<%yyyy%>"
Set ComLabelToolTip of hoChart OLEexHour to "<%m%>/<%d%>/<%yyyy%> <%h%> <%AM/PM%>"
Set ComLabelToolTip of hoChart OLEexMinute to "<%m%>/<%d%>/<%yyyy%> <%h%>:<%nn%> <%AM/PM%>"
Set ComLabelToolTip of hoChart OLEexSecond to "<%m%>/<%d%>/<%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>"
Set ComUnitScale of hoChart to OLEexDay
Send Destroy to hoChart
Send ComEndUpdate
End_Procedure
|
|
696
|
How can I get the caption of focused item
// Fired after a new item has been selected.
Procedure OnComSelectionChanged
Forward Send OnComSelectionChanged
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Showln "Handle" (ComFocusItem(hoItems)) "Caption" (ComCellCaption(hoItems,(ComFocusItem(hoItems)),0))
Send Destroy to hoItems
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComLinesAtRoot to OLEexLinesAtRoot
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Items" to Nothing
Send Destroy to hoColumns
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant h
Get ComAddItem of hoItems1 "R1" to h
Get ComInsertItem of hoItems1 h "Cell 1.1" to Nothing
Get ComInsertItem of hoItems1 h "Cell 1.2" to Nothing
Set ComExpandItem of hoItems1 h to True
Get ComAddItem of hoItems1 "R2" to h
Get ComInsertItem of hoItems1 h "Cell 2.1" to Nothing
Get ComInsertItem of hoItems1 h "Cell 2.2" to Nothing
Set ComExpandItem of hoItems1 h to True
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
695
|
How can I get the caption of selected item
// Fired after a new item has been selected.
Procedure OnComSelectionChanged
Forward Send OnComSelectionChanged
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Showln "Handle" (ComSelectedItem(hoItems,0)) "Caption" (ComCellCaption(hoItems,(ComSelectedItem(hoItems,0)),0))
Send Destroy to hoItems
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComLinesAtRoot to OLEexLinesAtRoot
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Items" to Nothing
Send Destroy to hoColumns
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant h
Get ComAddItem of hoItems1 "R1" to h
Get ComInsertItem of hoItems1 h "Cell 1.1" to Nothing
Get ComInsertItem of hoItems1 h "Cell 1.2" to Nothing
Set ComExpandItem of hoItems1 h to True
Get ComAddItem of hoItems1 "R2" to h
Get ComInsertItem of hoItems1 h "Cell 2.1" to Nothing
Get ComInsertItem of hoItems1 h "Cell 2.2" to Nothing
Set ComExpandItem of hoItems1 h to True
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
694
|
How can I highligth the item from the cursor as it moves
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComMouseMove llButton llShift llX llY
Send ComBeginUpdate
Variant h
Get ComItemFromPoint -1 -1 c hit to h
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant vItem
Get ComBackground (|CI$200 + OLEexHSRight + OLEexListOLEDropPosition) to vItem
Send ComClearItemBackColor of hoItems vItem
Set ComItemBackColor of hoItems h to (RGB(240,250,240))
Send Destroy to hoItems
Set ComBackground (|CI$200 + OLEexHSRight + OLEexListOLEDropPosition) to h
Send ComEndUpdate
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComLinesAtRoot to OLEexLinesAtRoot
Set ComDrawGridLines to OLEexHLines
Set ComSelBackColor to (RGB(240,250,240))
Set ComSelForeColor to (RGB(0,0,0))
Set ComShowFocusRect to False
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComSelBackColor of hoChart to (RGB(240,250,240))
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Items" to Nothing
Send Destroy to hoColumns
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAddItem of hoItems1 "R1" to h
Get ComInsertItem of hoItems1 h "Cell 1.1" to Nothing
Get ComInsertItem of hoItems1 h "Cell 1.2" to Nothing
Set ComExpandItem of hoItems1 h to True
Get ComAddItem of hoItems1 "R2" to h
Get ComInsertItem of hoItems1 h "Cell 2.1" to Nothing
Get ComInsertItem of hoItems1 h "Cell 2.2" to Nothing
Set ComExpandItem of hoItems1 h to True
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
693
|
How can I get the item from the cursor
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComMouseMove llButton llShift llX llY
Variant h
Get ComItemFromPoint -1 -1 c hit to h
Variant v
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComItemToIndex of hoItems h to v
Send Destroy to hoItems
Showln "Handle" h "Index" v
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComLinesAtRoot to OLEexLinesAtRoot
Set ComDrawGridLines to OLEexHLines
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Items" to Nothing
Send Destroy to hoColumns
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAddItem of hoItems1 "R1" to h
Get ComInsertItem of hoItems1 h "Cell 1.1" to Nothing
Get ComInsertItem of hoItems1 h "Cell 1.2" to Nothing
Set ComExpandItem of hoItems1 h to True
Get ComAddItem of hoItems1 "R2" to h
Get ComInsertItem of hoItems1 h "Cell 2.1" to Nothing
Get ComInsertItem of hoItems1 h "Cell 2.2" to Nothing
Set ComExpandItem of hoItems1 h to True
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
692
|
How can I get the column from the cursor, not only in the header
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComMouseMove llButton llShift llX llY
Showln (ComColumnFromPoint(Self,-1,0))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComLinesAtRoot to OLEexLinesAtRoot
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "P1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "P2" to Nothing
Send Destroy to hoColumns1
Set ComDrawGridLines to OLEexAllLines
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "R1" to h
Set ComCellCaption of hoItems h 1 to "R2"
Set ComCellCaption of hoItems (ComInsertItem(hoItems,h,"Cell 1.1")) 1 to "Cell 1.2"
Set ComCellCaption of hoItems (ComInsertItem(hoItems,h,"Cell 2.1")) 1 to "Cell 2.2"
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
691
|
How can I get the column from the cursor
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComMouseMove llButton llShift llX llY
Showln (ComColumnFromPoint(Self,-1,-1))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComLinesAtRoot to OLEexLinesAtRoot
Set ComDrawGridLines to OLEexAllLines
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "P1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "P2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "R1" to h
Set ComCellCaption of hoItems h 1 to "R2"
Set ComCellCaption of hoItems (ComInsertItem(hoItems,h,"Cell 1.1")) 1 to "Cell 1.2"
Set ComCellCaption of hoItems (ComInsertItem(hoItems,h,"Cell 2.1")) 1 to "Cell 2.2"
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
690
|
How can I get the cell's caption from the cursor
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComMouseMove llButton llShift llX llY
Variant h
Get ComItemFromPoint -1 -1 c hit to h
Variant v
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComCellCaption of hoItems h c to v
Send Destroy to hoItems
Showln v
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComLinesAtRoot to OLEexLinesAtRoot
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Items" to Nothing
Send Destroy to hoColumns
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Get ComAddItem of hoItems1 "R1" to h
Get ComInsertItem of hoItems1 h "Cell 1.1" to Nothing
Get ComInsertItem of hoItems1 h "Cell 1.2" to Nothing
Set ComExpandItem of hoItems1 h to True
Get ComAddItem of hoItems1 "R2" to h
Get ComInsertItem of hoItems1 h "Cell 2.1" to Nothing
Get ComInsertItem of hoItems1 h "Cell 2.2" to Nothing
Set ComExpandItem of hoItems1 h to True
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
689
|
Is it possible to change the style for the vertical or horizontal grid lines, in the list area
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDrawGridLines to OLEexAllLines
Set ComGridLineStyle to (OLEexGridLinesVSolid + OLEexGridLinesHDot4)
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Get ComAdd of hoColumns2 "C3" to Nothing
Send Destroy to hoColumns2
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Item 1" to h
Set ComCellCaption of hoItems h 1 to "SubItem 1.2"
Set ComCellCaption of hoItems h 2 to "SubItem 1.3"
Get ComAddItem of hoItems "Item 2" to h
Set ComCellCaption of hoItems h 1 to "SubItem 2.2"
Set ComCellCaption of hoItems h 2 to "SubItem 2.3"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
688
|
How can I show the bars over the grid lines, i.e. so you cannot see the grid lines 'through' the bar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDrawGridLines to OLEexAllLines
Set ComGridLineColor to (RGB(220,220,220))
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 48
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComDrawGridLines of hoChart to OLEexAllLines
Set ComGridLineStyle of hoChart to OLEexGridLinesBehind
Set ComLevelCount of hoChart to 2
Variant voLevel
Get ComLevel of hoChart 1 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComDrawGridLines of hoLevel to True
Set ComGridLineColor of hoLevel to (RGB(220,220,220))
Send Destroy to hoLevel
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComPattern of hoBar to OLEexPatternSolid
Set ComHeight of hoBar to 14
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Item 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/5/2001" "A" Nothing
Send ComAddBar of hoItems h "Task" "1/8/2001" "1/15/2001" "B" Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
687
|
Is it possible to change the style for the vertical grid lines, in the chart area only
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDrawGridLines to OLEexAllLines
Set ComGridLineStyle to OLEexGridLinesDash
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 48
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComDrawGridLines of hoChart to OLEexAllLines
Set ComGridLineStyle of hoChart to OLEexGridLinesDash
Set ComLevelCount of hoChart to 2
Variant voLevel
Get ComLevel of hoChart 1 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComDrawGridLines of hoLevel to True
Send Destroy to hoLevel
Variant voLevel1
Get ComLevel of hoChart 0 to voLevel1
Handle hoLevel1
Get Create (RefClass(cComLevel)) to hoLevel1
Set pvComObject of hoLevel1 to voLevel1
Set ComGridLineColor of hoLevel1 to (RGB(255,0,0))
Set ComGridLineStyle of hoLevel1 to OLEexGridLinesVSolid
Send Destroy to hoLevel1
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComPattern of hoBar to OLEexPatternSolid
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Item 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/5/2001" "A" Nothing
Send ComAddBar of hoItems h "Task" "1/8/2001" "1/15/2001" "B" Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
686
|
Is it possible to change the style for the grid lines, for instance to be solid not dotted
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDrawGridLines to OLEexAllLines
Set ComGridLineStyle to OLEexGridLinesSolid
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 48
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComDrawGridLines of hoChart to OLEexAllLines
Set ComGridLineStyle of hoChart to OLEexGridLinesSolid
Set ComLevelCount of hoChart to 2
Variant voLevel
Get ComLevel of hoChart 1 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComDrawGridLines of hoLevel to True
Send Destroy to hoLevel
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComPattern of hoBar to OLEexPatternSolid
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Item 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/5/2001" "A" Nothing
Send ComAddBar of hoItems h "Task" "1/8/2001" "1/15/2001" "B" Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
685
|
How can I show the grid lines for the chart and list area
Procedure OnCreate
Forward Send OnCreate
Set ComDrawGridLines to OLEexAllLines
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 48
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComDrawGridLines of hoChart to OLEexAllLines
Set ComLevelCount of hoChart to 2
Variant voLevel
Get ComLevel of hoChart 1 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComDrawGridLines of hoLevel to True
Send Destroy to hoLevel
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComPattern of hoBar to OLEexPatternSolid
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Item 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/5/2001" "A" Nothing
Send ComAddBar of hoItems h "Task" "1/8/2001" "1/15/2001" "B" Nothing
Send Destroy to hoItems
End_Procedure
|
|
684
|
How can I get the link from the point
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComMouseMove llButton llShift llX llY
Variant v
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Get ComLinkFromPoint of hoChart -1 -1 to v
Send Destroy to hoChart
Showln v
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComFirstVisibleDate of hoChart1 to "12/29/2000"
Set ComPaneWidth of hoChart1 False to 64
Set ComLevelCount of hoChart1 to 2
Send Destroy to hoChart1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Variant h2
Get ComAddItem of hoItems "Task 2" to h2
Send ComAddBar of hoItems h2 "Task" "1/5/2001" "1/7/2001" "K2" Nothing
Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
Set ComLink of hoItems "L1" OLEexLinkText to "L1"
Variant h3
Get ComAddItem of hoItems "Task 3" to h3
Send ComAddBar of hoItems h3 "Task" "1/8/2001" "1/10/2001" "K3" Nothing
Send ComAddLink of hoItems "L2" h2 "K2" h3 "K3"
Set ComLink of hoItems "L2" OLEexLinkText to "L2"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
683
|
How can I get the bar from the point
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComMouseMove llButton llShift llX llY
Variant v
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Get ComBarFromPoint of hoChart -1 -1 to v
Send Destroy to hoChart
Showln v
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComFirstVisibleDate of hoChart1 to "12/29/2000"
Set ComPaneWidth of hoChart1 False to 64
Set ComLevelCount of hoChart1 to 2
Send Destroy to hoChart1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Variant h2
Get ComAddItem of hoItems "Task 2" to h2
Send ComAddBar of hoItems h2 "Task" "1/4/2001" "1/6/2001" "K2" Nothing
Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
Variant h3
Get ComAddItem of hoItems "Task 3" to h3
Send ComAddBar of hoItems h3 "Task" "1/8/2001" "1/10/2001" "K3" Nothing
Send ComAddLink of hoItems "L2" h2 "K2" h3 "K3"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
682
|
How can I get the level from the cursor
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComMouseMove llButton llShift llX llY
Variant v
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Get ComLevelFromPoint of hoChart -1 -1 to v
Send Destroy to hoChart
Showln v
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComFirstVisibleDate of hoChart1 to "6/25/2010"
Set ComPaneWidth of hoChart1 False to 0
Set ComLevelCount of hoChart1 to 4
Send Destroy to hoChart1
End_Procedure
|
|
681
|
I display numbers in my chart, but the AddBar requires a date how can I add a bar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 0
Set ComNonworkingDays of hoChart to 0
Set ComFirstVisibleDate of hoChart to 0
Set ComToolTip of hoChart to ""
Variant voLevel
Get ComLevel of hoChart 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComLabel of hoLevel to "<%i%>"
Set ComToolTip of hoLevel to ""
Send Destroy to hoLevel
Set ComUnitWidth of hoChart to 24
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" 2 4 Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" 6 10 Nothing Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
680
|
I display numbers in the chart's header but do not want to get displayed negative numbers. How can i do that
// Occurs when the first visible date is changed.
Procedure OnComDateChange
Forward Send OnComDateChange
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to 0
Send Destroy to hoChart
Set ComScrollPartEnable OLEexHChartScroll OLEexLeftBPart to False
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComPaneWidth of hoChart1 False to 0
Set ComNonworkingDays of hoChart1 to 0
Set ComFirstVisibleDate of hoChart1 to 0
Set ComToolTip of hoChart1 to ""
Variant voLevel
Get ComLevel of hoChart1 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComLabel of hoLevel to "<%i%>"
Set ComToolTip of hoLevel to "<%i%>"
Send Destroy to hoLevel
Set ComUnitWidth of hoChart1 to 24
Send Destroy to hoChart1
Send ComEndUpdate
End_Procedure
|
|
679
|
How can I display numbers in the chart's header instead dates
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 0
Set ComNonworkingDays of hoChart to 0
Set ComFirstVisibleDate of hoChart to 0
Set ComToolTip of hoChart to ""
Variant voLevel
Get ComLevel of hoChart 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComLabel of hoLevel to "<%i%>"
Set ComToolTip of hoLevel to ""
Send Destroy to hoLevel
Set ComUnitWidth of hoChart to 24
Send Destroy to hoChart
Send ComEndUpdate
End_Procedure
|
|
678
|
How can I determine that a certain bar is the topmost
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 48
Set ComFirstVisibleDate of hoChart to "12/27/2000"
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Bars A B" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "A" Nothing
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "B" Nothing
Set ComItemBar of hoItems h "B" OLEexBarColor to 255
Get ComAddItem of hoItems "Bars B A" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "B" Nothing
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "A" Nothing
Set ComItemBar of hoItems h "A" OLEexBarColor to 255
Send Destroy to hoItems
End_Procedure
|
|
677
|
Is there any automatic way to change a property for all bars in the chart
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "1/2/2001" "1/4/2001" "K2" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Task" "1/2/2001" "1/4/2001" "K3" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 4")) "Task" "1/2/2001" "1/4/2001" "K4" Nothing
Set ComItemBar of hoItems 0 "<*>" OLEexBarColor to 255
Send Destroy to hoItems
End_Procedure
|
|
676
|
I have an EBN file how can I apply different colors to it, so no need to create a new one
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Set ComSelBackColor to (ComBackColor(Self))
Set ComSelForeColor to (ComForeColor(Self))
Set ComHasLines to OLEexNoLine
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Variant hC
Get ComInsertItem of hoItems h "Default" to hC
Set ComItemBackColor of hoItems hC to |CI$1000000
Set ComItemHeight of hoItems (ComInsertItem(hoItems,h,"")) to 6
Get ComInsertItem of hoItems h "Light Green" to hC
Set ComItemBackColor of hoItems hC to |CI$100ff00
Set ComItemHeight of hoItems (ComInsertItem(hoItems,h,"")) to 6
Get ComInsertItem of hoItems h "Dark Green" to hC
Set ComItemBackColor of hoItems hC to |CI$1007f00
Set ComItemHeight of hoItems (ComInsertItem(hoItems,h,"")) to 6
Get ComInsertItem of hoItems h "Magenta" to hC
Set ComItemBackColor of hoItems hC to |CI$1ff7fff
Set ComItemHeight of hoItems (ComInsertItem(hoItems,h,"")) to 6
Get ComInsertItem of hoItems h "Yellow" to hC
Set ComItemBackColor of hoItems hC to |CI$17fffff
Set ComItemHeight of hoItems (ComInsertItem(hoItems,h,"")) to 6
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
675
|
How can I remove all bars from the chart
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 4")) "Task" "1/2/2001" "1/4/2001" "K2" Nothing
Send ComClearBars of hoItems 0
Send Destroy to hoItems
End_Procedure
|
|
674
|
How can I change the color for all bars with a specified key
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 4")) "Task" "1/2/2001" "1/4/2001" "K2" Nothing
Set ComItemBar of hoItems 0 "K1" OLEexBarColor to 255
Send Destroy to hoItems
End_Procedure
|
|
673
|
Is there any automatic way to change a property for all bars with a specified key
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 4")) "Task" "1/2/2001" "1/4/2001" "K2" Nothing
Set ComItemBar of hoItems 0 "K1" OLEexBarColor to 255
Send Destroy to hoItems
End_Procedure
|
|
672
|
How can I remove all bars with specified key
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 4")) "Task" "1/2/2001" "1/4/2001" "K2" Nothing
Send ComRemoveBar of hoItems 0 "K1"
Send Destroy to hoItems
End_Procedure
|
|
671
|
Is there any option to show gradient bars without using EBN technology
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Variant voBars
Get ComBars of hoChart1 to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Variant voBar1
Get ComItem of hoBar "Task" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComColor of hoBar1 to (RGB(255,0,0))
Set ComStartColor of hoBar1 to (RGB(0,255,0))
Set ComEndColor of hoBar1 to (RGB(255,255,0))
Set ComPattern of hoBar1 to OLEexPatternBox
Send Destroy to hoBar1
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/5/2001" "" Nothing
Send Destroy to hoItems
End_Procedure
|
|
670
|
How can I disable the control's splitter so the user can't resize the list area
Procedure OnCreate
Forward Send OnCreate
Set ComOnResizeControl to (OLEexDisableSplitter + OLEexResizeChart)
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 60
Send Destroy to hoChart
End_Procedure
|
|
669
|
How can I disable the control's splitter so the user can't resize the chart area
Procedure OnCreate
Forward Send OnCreate
Set ComOnResizeControl to OLEexDisableSplitter
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart True to 60
Send Destroy to hoChart
End_Procedure
|
|
668
|
How can I define a bar that shows two colors, one up and one down, without using skin or EBN files
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Variant voBars
Get ComBars of hoChart1 to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComAdd of hoBars "A" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComColor of hoBar to (RGB(255,0,0))
Set ComShape of hoBar to OLEexShapeSolidUp
Set ComPattern of hoBar to OLEexPatternSolid
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart1
Variant voChart2
Get ComChart to voChart2
Handle hoChart2
Get Create (RefClass(cComChart)) to hoChart2
Set pvComObject of hoChart2 to voChart2
Variant voBars1
Get ComBars of hoChart2 to voBars1
Handle hoBars1
Get Create (RefClass(cComBars)) to hoBars1
Set pvComObject of hoBars1 to voBars1
Variant voBar1
Get ComAdd of hoBars1 "B" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComColor of hoBar1 to (RGB(128,0,0))
Set ComShape of hoBar1 to OLEexShapeSolidDown
Set ComPattern of hoBar1 to OLEexPatternSolid
Send Destroy to hoBar1
Send Destroy to hoBars1
Send Destroy to hoChart2
Variant voChart3
Get ComChart to voChart3
Handle hoChart3
Get Create (RefClass(cComChart)) to hoChart3
Set pvComObject of hoChart3 to voChart3
Variant voBars2
Get ComBars of hoChart3 to voBars2
Handle hoBars2
Get Create (RefClass(cComBars)) to hoBars2
Set pvComObject of hoBars2 to voBars2
Variant voBar2
Get ComAdd of hoBars2 "A%B" to voBar2
Handle hoBar2
Get Create (RefClass(cComBar)) to hoBar2
Set pvComObject of hoBar2 to voBar2
Set ComShortcut of hoBar2 to "AB"
Send Destroy to hoBar2
Send Destroy to hoBars2
Send Destroy to hoChart3
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "AB" "1/2/2001" "1/6/2001" "K1" Nothing
Set ComItemBar of hoItems h "K1" OLEexBarPercent to 1
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
667
|
Does your control support RightToLeft property for RTL languages or right to left
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComScrollBars to OLEexDisableBoth
Set ComLinesAtRoot to OLEexLinesAtRoot
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "P1" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Set ComPartialCheck of hoColumn to True
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
Set ComRightToLeft to True
Send ComEndUpdate
End_Procedure
|
|
666
|
Is there any way to display the vertical scroll bar on the left side, as I want to align my data to the right
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComScrollBars to OLEexDisableBoth
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Get ComAdd of hoColumns "C2" to Nothing
Get ComAdd of hoColumns "C3" to Nothing
Get ComAdd of hoColumns "C4" to Nothing
Get ComAdd of hoColumns "C5" to Nothing
Get ComAdd of hoColumns "C6" to Nothing
Get ComAdd of hoColumns "C7" to Nothing
Get ComAdd of hoColumns "C8" to Nothing
Send Destroy to hoColumns
Set ComRightToLeft to True
Send ComEndUpdate
End_Procedure
|
|
665
|
Can I display the cell's check box after the text
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Column" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Set ComDef of hoColumn OLEexCellDrawPartsOrder to "caption,check"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellHasCheckBox of hoItems (ComAddItem(hoItems,"Caption 1")) 0 to True
Set ComCellHasCheckBox of hoItems (ComAddItem(hoItems,"Caption 2")) 0 to True
Send Destroy to hoItems
End_Procedure
|
|
664
|
Can I change the order of the parts in the cell, as checkbox after the text, and so on
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Column" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellDrawPartsOrder to "caption,check,icon,icons,picture"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Text" to h
Set ComCellImage of hoItems h 0 to 1
Set ComCellHasCheckBox of hoItems h 0 to True
Send Destroy to hoItems
End_Procedure
|
|
663
|
Can I have an image displayed after the text. Can I get that effect without using HTML content
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Column" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellDrawPartsOrder to "caption,icon,check,icons,picture"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Text" to h
Set ComCellImage of hoItems h 0 to 1
Send Destroy to hoItems
End_Procedure
|
|
662
|
Is there any option to print the columns section on each page
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Col 1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Col 2" to Nothing
Send Destroy to hoColumns1
Set ComMarkSearchColumn to False
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComLevelCount of hoChart1 to 2
Send Destroy to hoChart1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Col 1" to h1
Set ComCellCaption of hoItems h1 1 to "Col 2"
Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Variant h2
Get ComAddItem of hoItems "Col 1" to h2
Set ComCellCaption of hoItems h2 1 to "Col 2"
Send ComAddBar of hoItems h2 "Task" "2/5/2001" "2/7/2001" "K2" Nothing
Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
Set ComLink of hoItems "L1" OLEexLinkStartPos to 0
Send Destroy to hoItems
Send ComEndUpdate
Handle hoPrint
Get Create (RefClass(cComPrint)) to hoPrint // Import the 'ExPrint 1.0 Control Library' library
Set ComOptions of hoPrint to "ColumnsOnEveryPage=-2"
Set ComPrintExt of hoPrint to (pvComObject(Self))
Send ComPreview of hoPrint
Send Destroy to hoPrint
End_Procedure
|
|
661
|
Is there any option to print the columns section on each page
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComLevelCount of hoChart1 to 2
Send Destroy to hoChart1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Variant h2
Get ComAddItem of hoItems "Task 2" to h2
Send ComAddBar of hoItems h2 "Task" "2/5/2001" "2/7/2001" "K2" Nothing
Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
Set ComLink of hoItems "L1" OLEexLinkStartPos to 0
Send Destroy to hoItems
Send ComEndUpdate
Handle hoPrint
Get Create (RefClass(cComPrint)) to hoPrint // Import the 'ExPrint 1.0 Control Library' library
Set ComOptions of hoPrint to "ColumnsOnEveryPage=1"
Set ComPrintExt of hoPrint to (pvComObject(Self))
Send ComPreview of hoPrint
Send Destroy to hoPrint
End_Procedure
|
|
660
|
How do I print the control's content
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Variant h2
Get ComAddItem of hoItems "Task 2" to h2
Send ComAddBar of hoItems h2 "Task" "1/5/2001" "1/7/2001" "K2" Nothing
Send ComAddLink of hoItems "L1" h1 "K1" h2 "K2"
Set ComLink of hoItems "L1" OLEexLinkStartPos to 0
Send Destroy to hoItems
Send ComEndUpdate
Handle hoPrint
Get Create (RefClass(cComPrint)) to hoPrint // Import the 'ExPrint 1.0 Control Library' library
Set ComPrintExt of hoPrint to (pvComObject(Self))
Send ComPreview of hoPrint
Send Destroy to hoPrint
End_Procedure
|
|
659
|
How can I display the column using currency format and enlarge the font for certain values
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Currency" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellCaptionFormat to 1
Set ComFormatColumn of hoColumn to "len(value) ? ((0:=dbl(value)) < 10 ? '<fgcolor=808080><font ;7>' : '<b>') + currency(=:0)"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1.23" to Nothing
Get ComAddItem of hoItems "2.34" to Nothing
Get ComAddItem of hoItems "9.94" to Nothing
Get ComAddItem of hoItems "11.94" to Nothing
Get ComAddItem of hoItems "1000" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
658
|
How can I highlight only parts of the cells
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellCaptionFormat to 1
Set ComFormatColumn of hoColumn to "value replace 'hil' with '<fgcolor=FF0000><b>hil</b></fgcolor>'"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Get ComInsertItem of hoItems h "Child 3" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
657
|
How can I get the number of occurrences of a specified string in the cell
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "occurrences" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "lower(%0) count 'o'"
Set ComFormatColumn of hoColumn to "'contains ' + value + ' of \'o\' chars'"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Get ComInsertItem of hoItems h "Child 1 oooof the root" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Get ComInsertItem of hoItems h "Child 3" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
656
|
How can I display dates in my format
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Date" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellCaptionFormat to 1
Set ComFormatColumn of hoColumn to "'<b>' + year(0:=date(value)) + '</b><fgcolor=808080><font ;6> (' + month(=:0) + ' - ' + day(=:0) +')'"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1/21/2001" to Nothing
Get ComAddItem of hoItems "2/22/2002" to Nothing
Get ComAddItem of hoItems "3/13/2003" to Nothing
Get ComAddItem of hoItems "4/24/2004" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
655
|
How can I display dates in short format
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Date" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComFormatColumn of hoColumn to "shortdate(value)"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1/1/2001" to Nothing
Get ComAddItem of hoItems "2/2/2002" to Nothing
Get ComAddItem of hoItems "3/3/2003" to Nothing
Get ComAddItem of hoItems "4/4/2004" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
654
|
How can I display dates in long format
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Date" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComFormatColumn of hoColumn to "longdate(value)"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1/1/2001" to Nothing
Get ComAddItem of hoItems "2/2/2002" to Nothing
Get ComAddItem of hoItems "3/3/2003" to Nothing
Get ComAddItem of hoItems "4/4/2004" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
653
|
How can I display only the right part of the cell
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Right" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "%0 right 2"
Set ComFormatColumn of hoColumn to "'"' + value + '"'"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Get ComInsertItem of hoItems h "SChild 3" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
652
|
How can I display only the left part of the cell
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Left" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "%0 left 2"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Get ComInsertItem of hoItems h "SChild 3" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
651
|
How can I display true or false instead 0 and -1
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Boolean" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComFormatColumn of hoColumn to "value != 0 ? 'true' : 'false'"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems true to Nothing
Get ComAddItem of hoItems false to Nothing
Get ComAddItem of hoItems true to Nothing
Get ComAddItem of hoItems 0 to Nothing
Get ComAddItem of hoItems 1 to Nothing
Send Destroy to hoItems
End_Procedure
|
|
650
|
How can I display icons or images instead numbers
Procedure OnCreate
Forward Send OnCreate
Send ComImages "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Icons" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellCaptionFormat to 1
Set ComFormatColumn of hoColumn to "'The cell displays the icon <img>'+value+'</img> instead ' + value"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems 1 to Nothing
Get ComAddItem of hoItems 2 to Nothing
Get ComAddItem of hoItems 3 to Nothing
Send Destroy to hoItems
End_Procedure
|
|
649
|
How can I display the column using currency
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Currency" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComFormatColumn of hoColumn to "currency(dbl(value))"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1.23" to Nothing
Get ComAddItem of hoItems "2.34" to Nothing
Get ComAddItem of hoItems "0" to Nothing
Get ComAddItem of hoItems 5 to Nothing
Get ComAddItem of hoItems "10000.99" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
648
|
How can I display the currency only for not empty cells
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Number" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Currency" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "len(%0) ? currency(dbl(%0)) : ''"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1.23" to Nothing
Get ComAddItem of hoItems "2.34" to Nothing
Get ComAddItem of hoItems "0" to Nothing
Set ComItemBackColor of hoItems (ComAddItem(hoItems,Nothing)) to (RGB(255,128,128))
Get ComAddItem of hoItems "10000.99" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
647
|
Is there a function to display the number of days between two date including the number of hours
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Start" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 32
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "End" to Nothing
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn1
Get ComAdd of hoColumns2 "Duration" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComComputedField of hoColumn1 to "2:=((1:=int(0:= date(%1)-date(%0))) = 0 ? '' : str(=:1) + ' day(s)') + ( 3:=round(24*(=:0-floor(=:0))) ? (len(=:2) ? ' and ' : '') + =:3 + ' hour(s)' : '' )"
Send Destroy to hoColumn1
Send Destroy to hoColumns2
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "1/11/2001" to h
Set ComCellCaption of hoItems h 1 to "1/14/2001"
Get ComAddItem of hoItems "2/22/2002 12:00:00 PM" to h
Set ComCellCaption of hoItems h 1 to "3/14/2002 1:00:00 PM"
Get ComAddItem of hoItems "3/13/2003" to h
Set ComCellCaption of hoItems h 1 to "4/11/2003 11:00:00 AM"
Send Destroy to hoItems
End_Procedure
|
|
646
|
Is there a function to display the number of days between two date including the number of hours
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Start" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "End" to Nothing
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn
Get ComAdd of hoColumns2 "Duration" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to ""D " + int(date(%1)-date(%0)) + " H " + round(24*(date(%1)-date(%0) - floor(date(%1)-date(%0))))"
Send Destroy to hoColumn
Send Destroy to hoColumns2
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "1/11/2001" to h
Set ComCellCaption of hoItems h 1 to "1/14/2001 11:00:00 PM"
Get ComAddItem of hoItems "2/22/2002 12:00:00 PM" to h
Set ComCellCaption of hoItems h 1 to "3/14/2002 1:00:00 PM"
Get ComAddItem of hoItems "3/13/2003" to h
Set ComCellCaption of hoItems h 1 to "4/11/2003 11:00:00 AM"
Send Destroy to hoItems
End_Procedure
|
|
645
|
How can I display the number of days between two dates
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Start" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "End" to Nothing
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn
Get ComAdd of hoColumns2 "Duration" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "(date(%1)-date(%0)) + ' days'"
Send Destroy to hoColumn
Send Destroy to hoColumns2
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "1/11/2001" to h
Set ComCellCaption of hoItems h 1 to "1/14/2001"
Get ComAddItem of hoItems "2/22/2002" to h
Set ComCellCaption of hoItems h 1 to "3/14/2002"
Get ComAddItem of hoItems "3/13/2003" to h
Set ComCellCaption of hoItems h 1 to "4/11/2003"
Send Destroy to hoItems
End_Procedure
|
|
644
|
How can I get second part of the date
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Date" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Second" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "sec(date(%0))"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1/11/2001 10:10:00 AM" to Nothing
Get ComAddItem of hoItems "2/22/2002 11:01:22 AM" to Nothing
Get ComAddItem of hoItems "3/13/2003 12:23:01 PM" to Nothing
Get ComAddItem of hoItems "4/14/2004 1:11:59 PM" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
643
|
How can I get minute part of the date
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Date" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Minute" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "min(date(%0))"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1/11/2001 10:10:00 AM" to Nothing
Get ComAddItem of hoItems "2/22/2002 11:01:00 AM" to Nothing
Get ComAddItem of hoItems "3/13/2003 12:23:00 PM" to Nothing
Get ComAddItem of hoItems "4/14/2004 1:11:00 PM" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
642
|
How can I check the hour part only so I know it was afternoon
Procedure OnCreate
Forward Send OnCreate
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Variant voConditionalFormat
Get ComAdd of hoConditionalFormats "hour(%0)>=12" Nothing to voConditionalFormat
Handle hoConditionalFormat
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
Set pvComObject of hoConditionalFormat to voConditionalFormat
Set ComBold of hoConditionalFormat to True
Send Destroy to hoConditionalFormat
Send Destroy to hoConditionalFormats
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Date" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Hour" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "hour(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1/11/2001 10:00:00 AM" to Nothing
Get ComAddItem of hoItems "2/22/2002 11:00:00 AM" to Nothing
Get ComAddItem of hoItems "3/13/2003 12:00:00 PM" to Nothing
Get ComAddItem of hoItems "4/14/2004 1:00:00 PM" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
641
|
What about a function to get the day in the week, or days since Sunday
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Date" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "WeekDay" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "weekday(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1/11/2001 10:00:00 AM" to Nothing
Get ComAddItem of hoItems "2/22/2002 11:00:00 AM" to Nothing
Get ComAddItem of hoItems "3/13/2003 12:00:00 PM" to Nothing
Get ComAddItem of hoItems "4/14/2004 1:00:00 PM" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
640
|
Is there any function to get the day of the year or number of days since January 1st
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Date" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Day since January 1st" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "yearday(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1/11/2001 10:00:00 AM" to Nothing
Get ComAddItem of hoItems "2/22/2002 11:00:00 AM" to Nothing
Get ComAddItem of hoItems "3/13/2003 12:00:00 PM" to Nothing
Get ComAddItem of hoItems "4/14/2004 1:00:00 PM" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
639
|
How can I display only the day of the date
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Date" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Day" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "day(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1/11/2001 10:00:00 AM" to Nothing
Get ComAddItem of hoItems "2/22/2002 11:00:00 AM" to Nothing
Get ComAddItem of hoItems "3/13/2003 12:00:00 PM" to Nothing
Get ComAddItem of hoItems "4/14/2004 1:00:00 PM" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
638
|
How can I display only the month of the date
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Date" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Month" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "month(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1/1/2001 10:00:00 AM" to Nothing
Get ComAddItem of hoItems "2/2/2002 11:00:00 AM" to Nothing
Get ComAddItem of hoItems "3/3/2003 12:00:00 PM" to Nothing
Get ComAddItem of hoItems "4/4/2004 1:00:00 PM" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
637
|
How can I get only the year part from a date expression
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Date" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Year" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "year(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1/1/2001 10:00:00 AM" to Nothing
Get ComAddItem of hoItems "2/2/2002 11:00:00 AM" to Nothing
Get ComAddItem of hoItems "3/3/2003 12:00:00 PM" to Nothing
Get ComAddItem of hoItems "4/4/2004 1:00:00 PM" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
636
|
Can I convert the expression to date
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Number" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Date" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "date(dbl(%0))"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "-1.98" to Nothing
Get ComAddItem of hoItems "30000.99" to Nothing
Get ComAddItem of hoItems "3561.23" to Nothing
Get ComAddItem of hoItems "1232.34" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
635
|
Can I convert the expression to a number, double or float
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Number" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Number + 2" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "dbl(%0)+2"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "-1.98" to Nothing
Get ComAddItem of hoItems "0.99" to Nothing
Get ComAddItem of hoItems "1.23" to Nothing
Get ComAddItem of hoItems "2.34" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
634
|
How can I display dates in long format
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Date" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "LongFormat" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "longdate(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1/1/2001 10:00:00 AM" to Nothing
Get ComAddItem of hoItems "2/2/2002 11:00:00 AM" to Nothing
Get ComAddItem of hoItems "3/3/2003 12:00:00 PM" to Nothing
Get ComAddItem of hoItems "4/4/2004 1:00:00 PM" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
633
|
How can I display dates in short format
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Date" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "ShortFormat" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "shortdate(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1/1/2001 10:00:00 AM" to Nothing
Get ComAddItem of hoItems "2/2/2002 11:00:00 AM" to Nothing
Get ComAddItem of hoItems "3/3/2003 12:00:00 PM" to Nothing
Get ComAddItem of hoItems "4/4/2004 1:00:00 PM" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
632
|
How can I display the time only of a date expression
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Date" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Time" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "'time is:' + time(date(%0))"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1/1/2001 10:00:00 AM" to Nothing
Get ComAddItem of hoItems "2/2/2002 11:00:00 AM" to Nothing
Get ComAddItem of hoItems "3/3/2003 12:00:00 PM" to Nothing
Get ComAddItem of hoItems "4/4/2004 1:00:00 PM" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
631
|
Is there any function to display currencies, or money formatted as in the control panel
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Number" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Currency" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "currency(dbl(%0))"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "1.23" to Nothing
Get ComAddItem of hoItems "2.34" to Nothing
Get ComAddItem of hoItems "10000.99" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
630
|
How can I convert the expression to a string so I can look into the date string expression for month's name
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Number" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Str" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "str(%0) + ' AA'"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "-1.98" to Nothing
Get ComAddItem of hoItems "0.99" to Nothing
Get ComAddItem of hoItems "1.23" to Nothing
Get ComAddItem of hoItems "2.34" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
629
|
Can I display the absolute value or positive part of the number
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Number" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Abs" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "abs(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "-1.98" to Nothing
Get ComAddItem of hoItems "0.99" to Nothing
Get ComAddItem of hoItems "1.23" to Nothing
Get ComAddItem of hoItems "2.34" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
628
|
Is there any function to get largest number with no fraction part that is not greater than the value
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Number" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Floor" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "floor(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "-1.98" to Nothing
Get ComAddItem of hoItems "0.99" to Nothing
Get ComAddItem of hoItems "1.23" to Nothing
Get ComAddItem of hoItems "2.34" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
627
|
Is there any function to round the values base on the .5 value
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Number" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Round" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "round(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "-1.98" to Nothing
Get ComAddItem of hoItems "0.99" to Nothing
Get ComAddItem of hoItems "1.23" to Nothing
Get ComAddItem of hoItems "2.34" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
626
|
How can I get or display the integer part of the cell
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Number" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Int" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "int(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "-1.98" to Nothing
Get ComAddItem of hoItems "0.99" to Nothing
Get ComAddItem of hoItems "1.23" to Nothing
Get ComAddItem of hoItems "2.34" to Nothing
Send Destroy to hoItems
End_Procedure
|
|
625
|
How can I display names as proper ( first leter of the word must be in uppercase, and the rest in lowercase )
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "proper(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "root" to h
Get ComInsertItem of hoItems h "child child" to Nothing
Get ComInsertItem of hoItems h "child child" to Nothing
Get ComInsertItem of hoItems h "child child" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
624
|
Is there any option to display cells in uppercase
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "upper(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Get ComInsertItem of hoItems h "Chld 3" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
623
|
Is there any option to display cells in lowercase
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComComputedField of hoColumn to "lower(%0)"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Get ComInsertItem of hoItems h "Chld 3" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
622
|
How can I mark the cells that has a specified type, ie strings only
Procedure OnCreate
Forward Send OnCreate
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Variant voConditionalFormat
Get ComAdd of hoConditionalFormats "type(%0) = 8" Nothing to voConditionalFormat
Handle hoConditionalFormat
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
Set pvComObject of hoConditionalFormat to voConditionalFormat
Set ComForeColor of hoConditionalFormat to (RGB(255,0,0))
Send Destroy to hoConditionalFormat
Send Destroy to hoConditionalFormats
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h 2 to Nothing
Get ComInsertItem of hoItems h "Chld 3" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
621
|
How can I bold the items that contains data or those who displays empty strings
Procedure OnCreate
Forward Send OnCreate
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Variant voConditionalFormat
Get ComAdd of hoConditionalFormats "not len(%1)=0" Nothing to voConditionalFormat
Handle hoConditionalFormat
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
Set pvComObject of hoConditionalFormat to voConditionalFormat
Set ComBold of hoConditionalFormat to True
Send Destroy to hoConditionalFormat
Send Destroy to hoConditionalFormats
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "C2" to Nothing
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Variant hC
Get ComInsertItem of hoItems h "Child 2" to hC
Set ComCellCaption of hoItems hC 1 to "1"
Get ComInsertItem of hoItems h "Child 3" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
620
|
Can I change the background color for items or cells that contains a specified string
Procedure OnCreate
Forward Send OnCreate
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Variant voConditionalFormat
Get ComAdd of hoConditionalFormats "%0 contains 'hi'" Nothing to voConditionalFormat
Handle hoConditionalFormat
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
Set pvComObject of hoConditionalFormat to voConditionalFormat
Set ComBackColor of hoConditionalFormat to (RGB(255,0,0))
Send Destroy to hoConditionalFormat
Send Destroy to hoConditionalFormats
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Get ComInsertItem of hoItems h "Chld 3" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
619
|
Is there any option to change the fore color for cells or items that ends with a specified string
Procedure OnCreate
Forward Send OnCreate
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Variant voConditionalFormat
Get ComAdd of hoConditionalFormats "%0 endwith '22'" Nothing to voConditionalFormat
Handle hoConditionalFormat
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
Set pvComObject of hoConditionalFormat to voConditionalFormat
Set ComForeColor of hoConditionalFormat to (RGB(255,0,0))
Send Destroy to hoConditionalFormat
Send Destroy to hoConditionalFormats
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 1.22" to Nothing
Get ComInsertItem of hoItems h "Child 2.22" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
618
|
How can I highlight the cells or items that starts with a specified string
Procedure OnCreate
Forward Send OnCreate
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Variant voConditionalFormat
Get ComAdd of hoConditionalFormats "%0 startwith 'C'" Nothing to voConditionalFormat
Handle hoConditionalFormat
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
Set pvComObject of hoConditionalFormat to voConditionalFormat
Set ComUnderline of hoConditionalFormat to True
Send Destroy to hoConditionalFormat
Send Destroy to hoConditionalFormats
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Get ComInsertItem of hoItems h "SChild 3" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
617
|
How can I change the background color or the visual appearance using ebn for a particular column
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Variant voColumn
Get ComAdd of hoColumns "Column 2" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexHeaderBackColor to 16777216
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "Column 3" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexHeaderBackColor to 16777471
Send Destroy to hoColumn1
Get ComAdd of hoColumns "Column 4" to Nothing
Send Destroy to hoColumns
End_Procedure
|
|
616
|
How can I change the background color for a particular column
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Variant voColumn
Get ComAdd of hoColumns "Column 2" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexHeaderBackColor to 8439039
Send Destroy to hoColumn
Get ComAdd of hoColumns "Column 3" to Nothing
Send Destroy to hoColumns
End_Procedure
|
|
615
|
Is it possible to define level in terms of just increasing numbers (not a Date)
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 32
Set ComUnitWidth of hoChart to 32
Set ComFirstVisibleDate of hoChart to 1000
Variant voLevel
Get ComLevel of hoChart 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComLabel of hoLevel to "<%i%>"
Send Destroy to hoLevel
Send Destroy to hoChart
End_Procedure
|
|
614
|
How can I hide the non-working units ( days or hours )
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 0
Set ComLevelCount of hoChart to 2
Variant voLevel
Get ComLevel of hoChart 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComLabel of hoLevel to "<%dddd%>"
Set ComAlignment of hoLevel to OLECenterAlignment
Send Destroy to hoLevel
Variant voLevel1
Get ComLevel of hoChart 1 to voLevel1
Handle hoLevel1
Get Create (RefClass(cComLevel)) to hoLevel1
Set pvComObject of hoLevel1 to voLevel1
Set ComLabel of hoLevel1 to 65536
Send Destroy to hoLevel1
Set ComNonworkingHours of hoChart to 16773375
Set ComShowNonworkingUnits of hoChart to False
Send Destroy to hoChart
Send ComEndUpdate
End_Procedure
|
|
613
|
Is there a way to have the display show the word "Noon" instead "12:00 PM" in the chart's header/levels
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 0
Set ComFirstVisibleDate of hoChart to "1/1/2001 10:00:00 AM"
Set ComLevelCount of hoChart to 3
Variant voLevel
Get ComLevel of hoChart 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComLabel of hoLevel to "<b><%mmm%> <%d%>, <%yyyy%></b>"
Set ComAlignment of hoLevel to OLECenterAlignment
Set ComUnit of hoLevel to OLEexDay
Send Destroy to hoLevel
Variant voLevel1
Get ComLevel of hoChart 1 to voLevel1
Handle hoLevel1
Get Create (RefClass(cComLevel)) to hoLevel1
Set pvComObject of hoLevel1 to voLevel1
Set ComLabel of hoLevel1 to "<%h%>:00 <%AM/PM%>"
Set ComAlignment of hoLevel1 to OLECenterAlignment
Set ComUnit of hoLevel1 to OLEexHour
Set ComDrawTickLines of hoLevel1 to True
Set ComDrawGridLines of hoLevel1 to True
Set ComReplaceLabel of hoLevel1 "12:00 PM" to "<fgcolor=0000FF><b>Noon</b></fgcolor>"
Send Destroy to hoLevel1
Variant voLevel2
Get ComLevel of hoChart 2 to voLevel2
Handle hoLevel2
Get Create (RefClass(cComLevel)) to hoLevel2
Set pvComObject of hoLevel2 to voLevel2
Set ComLabel of hoLevel2 to ""
Set ComUnit of hoLevel2 to OLEexMinute
Set ComCount of hoLevel2 to 15
Send Destroy to hoLevel2
Send Destroy to hoChart
End_Procedure
|
|
612
|
How can I change the selection background color in the chart area
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComSelBackColor of hoChart1 to (RGB(255,0,0))
Send Destroy to hoChart1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/6/2001" "1/14/2001" Nothing Nothing
Set ComSelectItem of hoItems (ComFirstVisibleItem(hoItems)) to True
Send Destroy to hoItems
End_Procedure
|
|
611
|
How can I change the selection background color in the chart area
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComSelBackColor of hoChart1 to |CI$1000000
Send Destroy to hoChart1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/6/2001" "1/14/2001" Nothing Nothing
Set ComSelectItem of hoItems (ComFirstVisibleItem(hoItems)) to True
Send Destroy to hoItems
End_Procedure
|
|
610
|
Is there any way to extend the selection on the chart
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Variant v
Get ComSelBackColor to v
Set ComSelBackColor of hoChart1 to v
Send Destroy to hoChart1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/6/2001" "1/14/2001" Nothing Nothing
Set ComSelectItem of hoItems (ComFirstVisibleItem(hoItems)) to True
Send Destroy to hoItems
End_Procedure
|
|
609
|
How can I display the column's header using multiple lines
Procedure OnCreate
Forward Send OnCreate
Set ComHeaderHeight to 128
Set ComHeaderSingleLine to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "This is just a column that should break the header." to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComWidth of hoColumn to 32
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "This is just another column that should break the header." to Nothing
Send Destroy to hoColumns1
End_Procedure
|
|
608
|
How can change the width, transparency, style, visual appearance ( EBN), of the vertical bar that shows the current date-time
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Variant voLevel
Get ComLevel of hoChart 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComLabel of hoLevel to 1048576
Send Destroy to hoLevel
Variant voLevel1
Get ComLevel of hoChart 1 to voLevel1
Handle hoLevel1
Get Create (RefClass(cComLevel)) to hoLevel1
Set pvComObject of hoLevel1 to voLevel1
Set ComLabel of hoLevel1 to "<%ss%>"
Set ComCount of hoLevel1 to 15
Send Destroy to hoLevel1
Set ComMarkNowColor of hoChart to |CI$1000000
Set ComMarkNowWidth of hoChart to 6
Set ComMarkNowTransparent of hoChart to 50
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/1/2008" "1/1/2018" Nothing Nothing
Send Destroy to hoItems
End_Procedure
|
|
607
|
How can change the width, style, visual appearance ( EBN), of the vertical bar that shows the current time
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Send Destroy to hoAppearance
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Variant voLevel
Get ComLevel of hoChart 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComLabel of hoLevel to 1048576
Send Destroy to hoLevel
Variant voLevel1
Get ComLevel of hoChart 1 to voLevel1
Handle hoLevel1
Get Create (RefClass(cComLevel)) to hoLevel1
Set pvComObject of hoLevel1 to voLevel1
Set ComLabel of hoLevel1 to "<%ss%>"
Set ComCount of hoLevel1 to 15
Send Destroy to hoLevel1
Set ComMarkNowColor of hoChart to |CI$1000000
Set ComMarkNowWidth of hoChart to 6
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/1/2008" "1/1/2018" Nothing Nothing
Send Destroy to hoItems
End_Procedure
|
|
606
|
How can I show a vertical bar that indicates the current time
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Variant voLevel
Get ComLevel of hoChart 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComLabel of hoLevel to 1048576
Send Destroy to hoLevel
Variant voLevel1
Get ComLevel of hoChart 1 to voLevel1
Handle hoLevel1
Get Create (RefClass(cComLevel)) to hoLevel1
Set pvComObject of hoLevel1 to voLevel1
Set ComLabel of hoLevel1 to "<%ss%>"
Set ComCount of hoLevel1 to 15
Send Destroy to hoLevel1
Set ComMarkNowColor of hoChart to (RGB(0,0,255))
Set ComMarkNowWidth of hoChart to 7
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/1/2008" "1/1/2018" Nothing Nothing
Send Destroy to hoItems
End_Procedure
|
|
605
|
How can I show semi-transparent the vertical bar that indicates the current time
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Variant voLevel
Get ComLevel of hoChart 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComLabel of hoLevel to 1048576
Send Destroy to hoLevel
Variant voLevel1
Get ComLevel of hoChart 1 to voLevel1
Handle hoLevel1
Get Create (RefClass(cComLevel)) to hoLevel1
Set pvComObject of hoLevel1 to voLevel1
Set ComLabel of hoLevel1 to "<%ss%>"
Set ComCount of hoLevel1 to 15
Send Destroy to hoLevel1
Set ComMarkNowColor of hoChart to (RGB(0,0,255))
Set ComMarkNowWidth of hoChart to 7
Set ComMarkNowTransparent of hoChart to 50
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/1/2008" "1/1/2018" Nothing Nothing
Send Destroy to hoItems
End_Procedure
|
|
604
|
Is there any way to highlight or show a vertical bar that indicates the current time, from 15 to 15 seconds
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Variant voLevel
Get ComLevel of hoChart1 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComLabel of hoLevel to 1048576
Send Destroy to hoLevel
Send Destroy to hoChart1
Variant voChart2
Get ComChart to voChart2
Handle hoChart2
Get Create (RefClass(cComChart)) to hoChart2
Set pvComObject of hoChart2 to voChart2
Variant voLevel1
Get ComLevel of hoChart2 1 to voLevel1
Handle hoLevel1
Get Create (RefClass(cComLevel)) to hoLevel1
Set pvComObject of hoLevel1 to voLevel1
Set ComLabel of hoLevel1 to "<%ss%>"
Set ComCount of hoLevel1 to 15
Send Destroy to hoLevel1
Send Destroy to hoChart2
Variant voChart3
Get ComChart to voChart3
Handle hoChart3
Get Create (RefClass(cComChart)) to hoChart3
Set pvComObject of hoChart3 to voChart3
Set ComMarkNowColor of hoChart3 to (RGB(0,0,255))
Send Destroy to hoChart3
Variant voChart4
Get ComChart to voChart4
Handle hoChart4
Get Create (RefClass(cComChart)) to hoChart4
Set pvComObject of hoChart4 to voChart4
Set ComMarkNowCount of hoChart4 to 15
Send Destroy to hoChart4
Variant voChart5
Get ComChart to voChart5
Handle hoChart5
Get Create (RefClass(cComChart)) to hoChart5
Set pvComObject of hoChart5 to voChart5
Set ComMarkNowWidth of hoChart5 to 3
Send Destroy to hoChart5
End_Procedure
|
|
603
|
Is there any way to highlight or show a vertical bar that indicates the current time, from minute to minute, hour and so on
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComUnitWidth of hoChart to 48
Set ComLevelCount of hoChart to 1
Variant voLevel
Get ComLevel of hoChart 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComLabel of hoLevel to 1048576
Send Destroy to hoLevel
Set ComMarkNowColor of hoChart to (RGB(255,0,0))
Set ComMarkNowUnit of hoChart to OLEexMinute
Set ComMarkNowWidth of hoChart to (ComUnitWidth(hoChart))
Send Destroy to hoChart
End_Procedure
|
|
602
|
Is there any way to highlight or show a vertical bar that indicates the current time
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Variant voLevel
Get ComLevel of hoChart1 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComLabel of hoLevel to 1048576
Send Destroy to hoLevel
Send Destroy to hoChart1
Variant voChart2
Get ComChart to voChart2
Handle hoChart2
Get Create (RefClass(cComChart)) to hoChart2
Set pvComObject of hoChart2 to voChart2
Variant voLevel1
Get ComLevel of hoChart2 1 to voLevel1
Handle hoLevel1
Get Create (RefClass(cComLevel)) to hoLevel1
Set pvComObject of hoLevel1 to voLevel1
Set ComLabel of hoLevel1 to "<%ss%>"
Set ComCount of hoLevel1 to 15
Send Destroy to hoLevel1
Send Destroy to hoChart2
Variant voChart3
Get ComChart to voChart3
Handle hoChart3
Get Create (RefClass(cComChart)) to hoChart3
Set pvComObject of hoChart3 to voChart3
Set ComMarkNowColor of hoChart3 to (RGB(255,0,0))
Send Destroy to hoChart3
End_Procedure
|
|
601
|
Is there a way of making a bar flash on the screen
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Flashy task" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "K1" Nothing
Set ComItemBar of hoItems h "K1" OLEexBarTransparent to 80
Send Destroy to hoItems
End_Procedure
|